home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
basicwnt.zip
/
GOSUB.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-02-11
|
591b
|
21 lines
0 rem *
1 rem *
2 rem *GOSUB_TEST_FOR_NITROUSBASIC
3 rem *
4 rem *
5 cls
10 gosub 1000 :print A$
20 gosub 2000 :print A$
30 gosub 3000 :print A$
40 gosub 4000 :print A$
45 gosub 5000 :print A$
50 end
1000 A$="Subroutine at line 1000":return
2000 A$="Subroutine at line 2000":return
3000 A$="Subroutine at line 3000":return
4000 gosub 10000 :A$=A$+" and at line 4000":return
5000 gosub 20000 :gosub 30000 :A$=A$+"Sub at line 5000":return
10000 A$="Subroutine at line 10000":return
20000 A$="Sub at line 20000...":return
30000 A$=A$+"Sub at line 30000...":return